procedure msgErro (Mensagem, Caption: String);
begin
  Application.MessageBox (PChar (Mensagem), PChar (Caption), mb_Ok + mb_IconError);
end;

function msgPergunta (Mensagem, Caption: String): Boolean;
begin
  Result := Application.MessageBox (PChar (Mensagem), PChar (Caption), mb_YesNo + mb_DefButton2 + mb_IconQuestion) = IdYes;
end;

procedure msgInformacao (Mensagem, Caption: String);
begin
  Application.MessageBox (PChar (Mensagem), PChar (Caption), mb_Ok + mb_IconInformation);
end;

function InserirValor (Mensagem, Caption: String): String;
begin
  InputQuery (Caption, Mensagem, Result);
end;

procedure msgErroFmt (Mensagem: String; Args: Array of Const; Caption: String);
begin
  msgErro (Format (Mensagem, Args), Caption);
end;